The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48hor2/phi.src

Text File | 1991-10-24 | 302b | 14 lines

%%HP: T(3)A(D)F(.);
@ PHI by Joseph K. Horn
@ Requires FACTOR by Jurjen NE Bos (on Goodies Disk #2)
\<< FACTOR OBJ\->
  IF DUP
  THEN 1 # 1d \-> n p
    \<< 1 SWAP
      START DUP n \=/ OVER 'n' STO - 'p' STO*
      NEXT p
    \>> DUP # 1000000000000d < { B\->R } IFT
  ELSE NOT
  END
\>>